home *** CD-ROM | disk | FTP | other *** search
/ Grand Slam 3 / Grand Slam 3.iso / 030 / airpt119.arj / AIRPT047.API < prev    next >
Text File  |  1995-09-26  |  2KB  |  105 lines
  1. ; Fichier include SCASM AIRPT047.API pour POLY3D TYPE = &LISSAPIN
  2. ; Include SCASM FILE AIRPT047.API for POLY3D TYPE = &LISSAPIN
  3.  
  4. ; création texture : eric leroy PVF 131
  5. ; création fichier objet : eric leroy PVF 131 
  6. ;                        : michel manelphe PVF 264 
  7.  
  8. ; Dessin d'une lisière: lisiere de résineux dense
  9. ; couleur 1 = extension     127     -> normal
  10. ;                           180     -> extension 2/3
  11. ; couleur 2 = position des extrémités : =extension-10
  12. ; couleur 3 = 0
  13. ; hauteur 33 m / scale 1
  14. ; Note: longueur = 2 * couleur1 * scale
  15. ;       largeur  = 20 * scale
  16.  
  17.  
  18. Area( b  %1  %2  %3 )
  19.     
  20.     PerspectiveCall( :D0 )
  21.     Jump( : )
  22.  
  23. :D0
  24.     Perspective
  25.     RefPoint( 2 :D3  %4  %1  %2 v1= %10 E= %11 )
  26.     RotatedCall( :D2  0  0  %5 )
  27.     Return
  28.  
  29. :D2
  30.       Points( 0
  31.       0      0    -%6      ;face
  32.       0     33    -%6 
  33.       0     33     %6 
  34.       0      0     %6 
  35.  
  36.      -9      0    -%7       ;extremité 1
  37.      -9     33    -%7 
  38.      10     33    -%7 
  39.      10      0    -%7 
  40.  
  41.      -9      0     %7      ;extrémité 2
  42.      -9     33     %7
  43.      10     33     %7
  44.      10      0     %7
  45.       )
  46.  
  47.     Bitmap( AIRPT005.OAV  0 0 1 0 )
  48.     BitmapMode( 1 )
  49.     
  50.     Inst_7D
  51.     TexPoly( a
  52.     4      0     100
  53.     5      0     133
  54.     6     20     133
  55.     7     20     100
  56.     )              
  57.                
  58.     Inst_7D
  59.     TexPoly( a
  60.     8     20     100
  61.     9     20     133
  62.        10      0     133
  63.        11      0     100
  64.     )              
  65.                
  66.     Inst_7D
  67.     TexPoly( a
  68.     0     20     100
  69.     1     20     133
  70.     2    255     133
  71.     3    255     100
  72.     )              
  73.                
  74.     Inst_7D
  75.     TexPoly( ai
  76.     4      0     100
  77.     5      0     133
  78.     6     20     133
  79.     7     20     100
  80.     )              
  81.                
  82.     Inst_7D
  83.     TexPoly( ai
  84.     8     20     100
  85.     9     20     133
  86.        10      0     133
  87.        11      0     100
  88.     )              
  89.                
  90.     Inst_7D
  91.     TexPoly( ai
  92.     0     20     100
  93.     1     20     133
  94.     2    255     133
  95.     3    255     100
  96.     )              
  97.     
  98.     BitmapMode( 0 )        
  99.     Return
  100.  
  101. :D3
  102.     Return
  103.  
  104. EndA
  105.